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LABEL OOOQOOOQOOPRINTEROOL75098CC EX OBJECT/READS? LLE SOURCEFILE=SYMBUL/STATS4S END OBJECT /READ e 
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BEGINY ANALYSIS OF STATISTICS LOG FILE. 00000100 
COMMENTS * TITLES BS5500/B5700 MARn XIV SYSTEM RELEASE * 00000110 ® 
FILE IDS SYMBOL/STATSS TAPE 1D’ SYMBOLO/CFILEOGO -«* QQQOQQ111 _ ua 
* THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION * 00000112 
* AND IS’ NOT TO BE REPRODUCED» USED» OR DISCLOSED * 00000413 
eee * EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON * Qo00di1%o = 
* WRITTEN AUTHORIZATION UF THE PaTENT DIVISION OF * 00000115 
* BURROUGHS CORPORATIONs DETROITs MICHIGAN 48232 * 00000116 
* Wj OQ000S TF non, cp ee a 
* COPYRIGHT (€C) 1971, 1972 BURROUGHS CORPORATION * 00000118 
* AA320206 AA3864657 «5 00000119 
FILE CARD (€2010)9 0900200 cade lade iia ate Pe Poca 
PRN 4(2915)» 00000300 
OSK DISK SERIAL (215230); 00000400 
-SARRAY STLOGEO ES) ¢ JOB STATO 04 Ve CONT Geo a OD a es 
REAL JOBTYPE1sJOBT¥PE 22 OVERLAYUSEDs 13 00000600 
LABEL RO1,E0F3 . 00000700 
ORMAT STLOGNAMEC"PSUFDO@L0G FILES “*AlsAGe"/"> Aloande OBO 
JOBSTATS C*™JOB NAMES "pAl rASe”™/ AL ,AG ep xX10-"JOB TYFES “pal yA, 00000900 
XLeA 1 A6/ 00001000 
a TR TE A aaa cel aD AY OSS A TC a OTR og Serene En O11 OH 9 6 ln be WO cectnr eae ae eee eee 
X4e"BOU TIMES "oTee "2s *p lay 90001200 
XSe™COU TIMES “Se ToeMs eT oe 00001300 
Cr Teen ane cele XSe"ELAPSED TIME: “elae" MINS. "sf Sede" SECSe"//  OOOOTKOO 
X4e"PROCESSOR TIMES “sl 32™ MINSe “"sF5,29" SECS,» 00001500 
XSe" LG TIMEs “"sl3e”" MINS. “sF5e20" SECSA"// 00001600 
xa cORe REQUIRED?! "pros" wORDS"» gran... Beh ROR is oat oe re aces 
XSe"TOTAL CORE IN USE? "sTSo"C*eTSe%) 5" WORDS", 00001800 
eal ae OVERLAY USED! “sy3e" SUBSECTIONS" // 00001900 
Is: " 00002000 
NaCRNUNEEE OF CODE OVERLAYS! "“»I15» 00062100 
X3, "NUMBER OF SECONDARY CUDE P BIT INTRPTS? "51577 00002200 
»"NUMBER OF DATA P BIT TRPIS3 “sl ere?) 0 Orion he 
X3e"NUMBER OF DATA OVERLAYS? "se 15 00002400 
X3e>"NUMBER OF SECONDARY DATA P BIT INTRPTS$ "eI 5// 00002500 
iC NUMBER OF JOBS REMAINING IN MIX? “eTo/s/ Ss as 002600 shalwsg tts oa as Tees 
3 00002700 
Fo tece ces ewesewne nme eassame manana cetasetamereuntasasnnanennnonaanemamaan (02800 
STREAM PROCEDUR AN NG )3 00v029d00. ss 
BEGIN REAL LOCAL2sLOCALL3 00003000 
Slas.0G3s Opts LOC LUCALIs © 00003100 
a e1;.. ; RLeeemrOne 
7CUF Sca"/" THEN DStSLIT" * ELSE OSts CHR) 00903300 
SIls=Sle43 O1=p14+13 00003400 
Sts 0 baae te eres 
SIssLOC LOCALLs O1ts_QGs : 00003600 
0823416 CHR; 00003700 
ENO3 Sf cores ti eee Seah hae Naame tn ah alee es ots OOO ee ete Ta 
JOM we wwe ewes a Mame een nme ee Hewat enn ema ameane Mamannnaanamaweaaanameeen (03900 
PROCEDURE COMPUTEOVERLAY; 00004000 
BEGIN 00004100 7 
CNTCOJ2= REALCCC IPs JOBSTAT[7}]),018%6]) NEQ 003 . 00004200 
CNTC4I9% REALCI,( 2486] NEO O73 00004300 
CNTC2]9@ REALCI.(C 3096] NEO O)3 - es 00004400 
CNTC3I]9= REALCI.C 3626) NEG 03 00004500 
CNTC4]3= REALCI2C42%6] NEQ 0) 00004600 
OVERLAYUSEDs=( CC Te C33:14)= Pies SUNT LOT ECUTELISENTLS j+ 00904700 7 
CNTC3I4CNTC4I93 °° - 009004800 


END} ; 00904900 
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PRUCEDURE FINDJOBTYPES 00005100 
BEGIN 00005200 
eran 24 ; Soe See cte eeee tO S OO. 
BEGIN 00005400 
CASE CJOBSTATLB1,.£3636)) OF 00005500 
ee eae seen BEGIN __00005600 | 
BEGIN JOBTYPE1?="UNKNOWN"3 JCBTYPE2ts" OBYECT™ END} 00005700 
BEGIN JOBTYPE1?="  BASIC"SJUBTYPEZ$=" UBJECT™ END$ 00005800 
BEGIN JOBTYPEL$=" ALGUL";JUBTYFE2%=" OBVECT" ENDS 00005900  _ 
BEGIN JOBTYPE1#=" COBOL"SJOBTYPE2ts" OBJECT” END} 00006000 


BEGIN SORT SER ee OR INARS) ioe OBVECT™ ENDs 00006100 


000072000—“‘i‘C:;*W 
HOO. 


_ oo YPE,i=" Ss BT YE a" ud ; 0 
BEGIN JOBTYPE1¢S=" aE SGBTYPEDT er QOBVECT* ENDs 00006300 
ENDS 00006400 
: = G " y gat " 006 
BEGIN JOBTYPEL:=" COBOL"S JOBTYPE2 t="COMPILE® END? 00006600 
BEGIN ENDS 00006700 
Saar n tesco REGEN ENON se Gt eo OOO RRO N a, 
BEGIN ENDs 00006900 
BEGIN JOBTYPELS="FORTRAN'S JOBTYPL22="COMPILE™ END3 00007000 
BEGIN JORTYPEL2=e" BASTC"SIUETYPEOLSNCOMPILEN ENDS gogo7100 
BEGIN END3 
BEGIN JOBTYPELIS" XALGOL"3 TOS T VE Cte rome te END; 00007300 
" " 
END; 00907500 
END; 00007600 
Leto neae teen near eee eae See eee sen rete sererecerwernerasomeramn=aNNN07700.. 
READCCARD® 2eSTLOG(*J))3 000078006 
SCANFILECSTLOG)3 00007900 
epemereaees 2 ( 3 " 
WRITECPRN» STLOGNAME» STLOGLO 1, role arsteagte ys 00008100 
STLOGL1),£eteleSTLOG(1))5 00008200 


__WRITECPRNDG WRITECPANDS ne 


RDI: READ(DSK» 15s JOBSTAT(C#]) LEOF J3 00008400 
IF JOBSTATCOJSREALCNOT FALSE) THEN GO To EOFs 00008500 
__IF OVERLAYUSED=sJO8STATEC7] NEG 0 THEN COMPU TEOVERLAYS 00008400. 
~ FINDJOBTYPES 00008700 
WRITECPRN» JOBSTATSsJOBSTATIO] ol OSG) +JUBSTATLOJ»JORSTATLIJel6t6)» 00008800 


JOBSTATE 1)» JOBTYP 


Z1,COtOI+VOBTYPE Le JOBTYPE2,[Ot6}»JUBTYPE2>» 00008900 _ 


i a eo er 


Oso ee es, 


(JOBSTATL2)/3600) DIV 60> 00009000 
(JOBSTAT(C21/3600) MUD 60+ 00009100 
ee (JOBSTATL33173600) DIV 60, 00009200 _ 
(JOBSTAT(C3)/3600) MUD 60> 00009300 
CC YOBSTATC3I*UNBSTATL2]) LIV 3660), 00009400 
((JOBSTATL 3)" JOBSTAT(2]) MOD 3600)/6us 00009500 
(JOBSTATC4] DIV 3600)» “00009600 
svoee ates MOD © abe) 608: eee 
acura MOD 360057805 00009900 
SUBSTATION (33815)> 00010000 

32:15 ]+JOBSTATLO Gs15))— 00010400 

joBst trey Catisis a ee 00010200 

‘OVERLAYUSED» : Ss, ea 00010300 

“ JOBSTATCLO} st 2at24T> ~ ae ee - 00010400 

JOBSTATC113.024824)> 00010500 

JOBSTAT(12),024%24)> - 00010600 
JOBSTAT(10}.01223)> 00010700 

, MOBSTATOC111.09:231> cae 00014080G, 

~ JOBSTATCL2). 112324 Pe 00010900 

JOBSTAT£13). bs 00911000 
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EOF: END. 
ENDSEND. 
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LABEL QOQOQOQOQOOPRINTEROOI75S094CC EX OBVECT/REAUSFILE SOURCEFILE=SYMBUL/STATS4SENVE OBJECT /READ e 


